EmpMst
Btrieve Test Program
Form1,
Frame2
 Action
AddCommand
ChangeCommand
Change
DeleteCommand
Delete
ExitCommand
Frame3
Data Access
FirstCommand
First
NextCommand
PreviousCommand
Previous
LastCommand
Frame4
	Select By
SelectByNum
Employee #
SelectByLast
	Last Name
SelectByFirst
First Name
EmpNum
EmpList
Label7
Employee #
LstNam
Label6
	Last Name
FstNam
Label2
First Name
SocSec
Label1
ZipCod
Label4
Zip Code
WPhone
Label12
Work Phone
HPhone
Label5
Home Phone
Form_Click(
POSBLK
PBELEMENTS
	KEYBUFFER
FILENAME
	WBTRVINIT
	WBTRVSTOP
BTRCALLT
POSBKL
BTRVINIT
KeyBuff
Command1_Click;
StatusG
BOPEN4
POSBLOCKj
DataBuff+
BufLent
	KeyBufLen+
KeyNum
Text1
Command5_Click
Command2_Click
BFIRST
Command3_Click
BNEXT]
Command4_Click
BGREATER
BUFFER/
KEYBUFFLEN
	BPREVIOUS
NAMECODEP
Text2o
Text2_Change
FileText
	ErrorText
Command6_Click
Text3_Change
FileText_Change
Command7_Click_
BSTAT
Command8_Click
BDELETE>
OpenCommand_Click
Command10_Click
FileList_ClickH
FileList{
Valueh
DirList_Change3
Path5
DirList
PatternText_Change
Pattern
PatternText
@	Form_Loadq
ErrorText_Change
Command1
Enabled
Command2
Command3
Command4
Command8
FALSE
	KeyNumber
PrtNum$
	BGET_NEXT
	BGET_PREV;
BGET_GTF
BGET_GOER
BGET_LT
BGET_LOE`
BGET_FIRST
	BGET_LAST
KeyNumber_Change
SubCommand2_Click
Label6_Click
DATABUF
Caption
BINSERT$
Text2_Text}
BtrErr
DriveList_Change!
	DriveListC
Enable
TextDriveListj
ChrDirW
Text3
OpenCommand)
Text3_LostFocus
Responseh
Click
Enter
StartUp.
PartText
PrtTyp
ClaCod
PrtCla
Text4
PlanID9
BUpdateJ
Command7{
Command5
EmpNum
EmpLst
EmpFst
ileText9
SelectByLast	
SelectByFirstP
SelectByNum\
SetSelectBy
Frame1_DragDrop
Source
SelectByLast_Click
SelectByNum_Click
SelectByFirst_Click
EmpList_Click
EmpList
EmpLast
Index
SetEmpList
Sorted
	@	PaintData
artText
rtText
@	ClearData
GotFocus
SelectBy
KeyBuf
BGET_EQUALT
KBuff
	ListIndex
SelectByLst
AddCommand_Click
ChangeCommand_Click
DeleteCommand_Click
Command9_Click.
Command13_Click
ExitCommand_ClickA
Command12_Clickw	
Command11_Click
AddCommand.	
ChangeCommandZ	
DeleteCommand4d	@
FirstCommand_Click=	@
LastCommand_Click
NextCommand_Click
PreviousCommand_Click
DeleteCommand
ExitCommand
FirstCommand5
LastCommandm	
FirstCommand
NextCommand
PreviousCommand
SocSec
HirDat
Text5
NumExp
Text6
HPhone
Text4_Change
KeBufLen
FstNam
LstNam
WPhone
CommandsOff
ZipCod
SetBuff
Form_Load
Execute StartUp Routine
Open EmpMst.Dat File
C:\VB\BtrTest\EmpMsts.Dat"
SetSelectBy
SelectByNum_Click
SelectByFirst_Click
SetEmpList
Load EmpList Listbox with Employee Data 
+ "  #" + DataBuff.EmpNumm
+ " #" + DataBuff.EmpNum
PaintData
Paint Screen Data after file I/O
ClearData
Clear Screen Dataa
EmpList_Click
Set Select Box
Get First by EmpNum
MsgBox DataBuff.LstNam + DataBuff.EmpNum, 0
AddCommand_Click
Add Action Successful"
File Action Message"
ChangeCommand_Click
Change SuccessFul"
File Action Message"
ExitCommand_Click
Quit App
DeleteCommand_Click
Are you Sure?"
File Action Message"
Delete SuccessFul"
File Action Message"
FirstCommand_Click
LastCommand_Click
NextCommand_Click
PreviousCommand_Click
SelectByLast_Click
CommandsOff
SetBuff
Set data buffer to the field values